1870 KK = 0:CO = CO +1: IF CO = 2 THEN BE = 7:EN = 11:RR = 1:YT = 1:XT = 11: GOTO 1740
1880 IF CO = 3 THEN BE = 1:EN = 5:RR = 4:YT = 6:XT = 1: GOTO 1740
1890 IF VAL(P$(1,1)) + VAL(P$(1,11)) + VAL(P$(6,1)) = TC THEN RETURN
1900 IF P(1) +P(2) +P(3) = 0 THEN RETURN
1910 IF W = 0 THEN RETURN
1920 VTAB 24: HTAB 10: INVERSE : PRINT "PRESS <RETURN>";: NORMAL : GET A$: PRINT : HOME : RETURN
1930 REM *** BOARD DATA ***
1940 DATA 144,136,71,"6",84,"5",97,"4",111,"3",124,"2",138,"1",151,"2",165,"3",178,"4",192,"5",206,"6"
1950 DATA 122,111,83,"4",97,"3",111,"2",124,"0",138,"0",151,"0",165,"2",178,"3",192,"4"
1960 DATA 98,88,97,"2",111,"1",124,"0",137,"0",152,"0",165,"1",180,"2"
1970 DATA 74,66,110,"2",125,"3",138,"2",152,"3",165,"2"
1980 DATA 52,41,124,"4",138,"5",152,"4"
1990 DATA 138,27,"6"
2000 REM *** GAME INSTRUCTIONS ***
2010 HOME : HTAB 16: INVERSE : PRINT "TRI-NUM": NORMAL : POKE 34,2: VTAB 8
2020 PRINT " THE GAME IS PLAYED BY 2 OR 3 PLAYERS WHO MOVE 'COUNTERS' FROM THE CENTER OR ZERO SPACES TO ONE OF THE THREE CORNERS ON THE TRI-NUM BOARD."
2030 GOSUB 2350
2040 HGR : GOSUB 1350
2050 VTAB 21: PRINT "HERE IS THE TRI-NUM BOARD. NOTICE, THE TRIANGLES IN THE CENTER WITH ZEROS ARE WHERE THE COUNTERS ARE PLACED FIRST."
2060 GOSUB 2350
2070 HOME : VTAB 21: PRINT "RULE 1: COUNTERS MUST BE MOVED UPWARD NUMERICALLY IN ONE OR MORE STEPS BETWEEN JOINING TRIANGLES."
2080 GOSUB 2350
2090 HOME : VTAB 21: PRINT "RULE 2: COUNTERS MUST BE MOVED PARALLEL TO (SAME DIRECTION AS) ONE OF THE THREE LONG SIDES OF THE BOARD."
2100 GOSUB 2350
2110 POKE 49233,0
2120 PRINT "YOU MAY MOVE ONE OR ALL OF THE COUNTERS AS FAR AS POSSIBLE ON THE BOARD. YOU MAY MOVE TO ANY TRIANGLE, WHETHER IT HAS COUNTERS ON IT OR NOT."
2130 PRINT
2140 PRINT " REMEMBER THAT IT IS ILLEGAL TO MOVE TO A LOWER NUMBERED TRIANGLE AND THE MOVES MUST BE PARALLEL TO THE SIDES."
2150 PRINT
2160 PRINT " WHEN A PLAYER MOVES A COUNTER TO ONE OF THE CORNERS,THE PLAYER OWNS IT UNTIL SOMEONE ELSE MOVES A COUNTER THERE."
2170 PRINT
2180 PRINT " THE PLAYER WHO MOVES THE LAST COUNTERONTO A CORNER TRIANGLE WILL WIN THAT CORNER AND RECIEVE POINTS FOR IT."
2190 PRINT
2200 GOSUB 2350
2210 VTAB 3: INVERSE : HTAB 16: PRINT "SCORING": NORMAL
2220 PRINT
2230 PRINT "1ST CORNER WON: POINTS EQUAL TWICE THE NUMBER OF COUNTERS IN THAT CORNER."
2240 PRINT
2250 PRINT "2ND CORNER WON: POINTS EQUAL THREE TIMES THE NUMBER OF COUNTERS IN THAT CORNER."
2260 PRINT
2270 PRINT "3RD CORNER WON: POINTS EQUAL FOUR TIMES THE NUMBER OF COUNTERS IN THAT CORNER."
2280 GOSUB 2350
2290 VTAB 3: INVERSE : HTAB 15: PRINT "PENALTIES": NORMAL
2300 VTAB 8
2310 PRINT " ANY ILLEGAL MOVE WILL COST A PLAYER FIVE POINTS. THE PLAYER WILL BE REQUIREDTO COMPLETE THE TURN PROPERLY."
2320 GOSUB 2350: RESTORE
2330 RETURN
2340 REM *** KEYPRESS TO CONTINUE ***
2350 VTAB 24: HTAB 1: PRINT "PRESS RETURN";: GET A$
2360 IF ASC(A$) < >13 THEN 2350
2370 HOME : RETURN
2380 HOME : PRINT "THE FILE TRISHAPES IS NOT ON THIS DISK.": END
2390 HOME : PRINT "ERROR NUMBER " PEEK(222)" HAS OCURRED IN LINE " PEEK(218) +256 * PEEK(219): END